home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
vbasic
/
nivb
/
nwprint.bas
< prev
next >
Wrap
BASIC Source File
|
1993-05-28
|
4KB
|
83 lines
'NWPRTQUE.BAS NetWare Print Services Interface for Visual Basic For Windows
'Version 1.0
'Novell Systems Research Department, Novell, Inc.
'Copyright (c) 1993, Novell, Inc.
'This interface is not supported through Novell's regular
'support channels. See README.TXT for more information.
Global Const CAPTURE_IS_NOT_ACTIVE = 0
Global Const CAPTURE_IS_ACTIVE = 255
Type CAPTURE_FLAGS
status As String * 1
flags As String * 1
tabSize As String * 1
serverPrinter As String * 1
numberOfCopies As String * 1
formType As String * 1
reserved1 As String * 1
bannerText As String * 13
reserved2 As String * 1
localLPTDevice As String * 1
flushCaptureTimeoutCount As Integer
flushCaptureOnDeviceClose As String * 1
maxLines As Integer
maxChars As Integer
formName As String * 13
LPTCaptureFlag As String * 1
fileCaptureFlag As String * 1
timingOutFlag As String * 1
printerSetupBuffer As Long
printerResetBuffer As Long
connectionIDQueuePrintJob As String * 1
captureInProgress As String * 1
printQueueFlag As String * 1
printJobValid As String * 1
printQueueID As Long
printJobNumber As Integer
End Type
Type SET_CAPTURE_FLAGS
status As String * 1
flags As String * 1
tabSize As String * 1
serverPrinter As String * 1
numberOfCopies As String * 1
formType As String * 1
reserved1 As String * 1
bannerText As String * 13
reserved2 As String * 1
localLPTDevice As String * 1
flushCaptureTimeoutCount As Integer
flushCaptureOnDeviceClose As String * 1
maxLines As Integer
maxChars As Integer
formName As String * 13
reserved3 As String * 1
End Type
Declare Function CancelLPTCapture Lib "NWNETAPI.DLL" () As Integer
Declare Function CancelSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
Declare Function EndLPTCapture Lib "NWNETAPI.DLL" () As Integer
Declare Function EndSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
Declare Function FlushLPTCapture Lib "NWNETAPI.DLL" () As Integer
Declare Function FlushSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
Declare Function GetBannerUserName Lib "NWNETAPI.DLL" (ByVal userName$) As Integer
Declare Function GetDefaultCaptureFlags Lib "NWNETAPI.DLL" (captureFlags As CAPTURE_FLAGS) As Integer
Declare Function GetDefaultLocalPrinter Lib "NWNETAPI.DLL" () As Integer
Declare Function GetLPTCaptureStatus Lib "NWNETAPI.DLL" (serverNumber%) As Integer
Declare Function GetPrinterQueue Lib "NWNETAPI.DLL" (ByVal printerNumber%, queueID&) As Integer
Declare Function GetPrinterStatus Lib "NWNETAPI.DLL" (ByVal printerNumber%, printerHalted%, printerOffLine%, formType%, targetPrinter%) As Integer
Declare Function GetSpecificCaptureFlags Lib "NWNETAPI.DLL" (ByVal localLPTDevice%, captureFlags As CAPTURE_FLAGS) As Integer
Declare Function SetBannerUserName Lib "NWNETAPI.DLL" (ByVal userName$) As Integer
Declare Function SetCapturePrintJob Lib "NWNETAPI.DLL" (ByVal lptDevice%, ByVal jobNumber%, jobFileHandle As FILE_HANDLE) As Integer
Declare Function SetCapturePrintQueue Lib "NWNETAPI.DLL" (ByVal lptDevice%, ByVal connID%, ByVal queueID&) As Integer
Declare Function SetDefaultCaptureFlags Lib "NWNETAPI.DLL" (setCaptureFlags As SET_CAPTURE_FLAGS) As Integer
Declare Function SetDefaultLocalPrinter Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
Declare Function SetSpecificCaptureFlags Lib "NWNETAPI.DLL" (ByVal lptDevice%, setCaptureFlags As SET_CAPTURE_FLAGS) As Integer
Declare Function SetSpoolFlags Lib "NWNETAPI.DLL" (ByVal printFlags%, ByVal tabSize%, ByVal printerNumber%, ByVal numberOfCopies%, ByVal formType%, ByVal bannerName%) As Integer
Declare Function SpecifyCaptureFile Lib "NWNETAPI.DLL" (ByVal driveHandle%, ByVal filePath$) As Integer
Declare Function StartLPTCapture Lib "NWNETAPI.DLL" () As Integer
Declare Function StartSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer